﻿Namespace Model

    Public Class SystemMessageEventArgs
        Inherits EventArgs

        Private Message As SystemMessage

        Public Sub New(ByVal message As SystemMessage)
            Me.Message = message
        End Sub

        Public Sub New(ByVal kind As SystemMessageKind, ByVal text As String)
            Me.New(New SystemMessage(kind, text))
        End Sub

        Public ReadOnly Property Kind() As SystemMessageKind
            Get
                Return Message.Kind
            End Get
        End Property

        Public ReadOnly Property Text() As String
            Get
                Return Message.Text
            End Get
        End Property

    End Class

End Namespace
